www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\Collection-b\conn.asp

    
<!--#include file=../../../inc/config.asp-->



<%

dir_set="../../"
Server.ScriptTimeout = 99999

%>





<%









if session(nd_admin_cach_varb_name)="" and request.cookies(nd_admin_cach_varb_name)="" then 

response.redirect "../D_admin_login.asp"
response.end




end if










dim connstr
dim db
dim conn


'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&main_data_mdb)
conn.Open connstr
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If

Sub CloseConn()
        'On Error Resume Next
	Conn.close
	set Conn=nothing
End sub


dim connstrItem
dim dbItem
dim connItem
dbItem="database/#Item.asp"      '采集数据库文件的位置 
'On Error Resume Next
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "采集数据库连接出错，请检查连接字串。"
   Response.End
End If

Sub CloseConnItem()
   On Error Resume Next
   ConnItem.close
   Set ConnItem=nothing
End sub
%>